1 POKE56,208:POKE55,0:F=0:C=PEEK(55)-120:IFC<0THENC=C+256:F=-1
2 D=PEEK(56)+F:POKE55,C:POKE56,D
3 S=828:I=146:GOSUB100
10 DATA32,198,3,165,55,133,251,133,253,165,56,133,252,133,254,169
15 DATA49,133,167,169,133,133,168,169,13,32,210,255,169,70,32,210
20 DATA255,165,167,32,210,255,169,61,32,210,255,169,63,32,210,255
25 DATA169,32,32,210,255,32,207,255,72,160,0,165,168,145,55,104
30 DATA32,198,3,201,13,240,14,201,95,208,2,169,13,145,55,32
35 DATA207,255,76,124,3,230,167,165,167,41,1,208,10,24,165,168
40 DATA105,4,133,168,76,170,3,56,165,168,233,3,133,168,165,167
45 DATA201,57,144,163,120,169,L0,141,20,3,169,H0,141,21,3,88
50 DATA169,0,133,167,32,68,166,76,116,164,166,55,208,2,198,56
55 DATA198,55,96
56 S=PEEK(55)+256*PEEK(56):I=120:GOSUB100
57 SYS(828)
58 END
60 DATA165,167,240,59,160,0,177,251,32,L99,H0,176,12,165,55,197
65 DATA251,208,21,165,56,197,252,208,15,169,0,133,167,165,253,133
70 DATA251,165,254,133,252,76,49,234,166,198,177,251,157,119,2,230
75 DATA198,32,L111,H0,165,198,201,11,144,204,230,167,76,49,234,165
80 DATA215,32,L99,H0,176,3,76,49,234,165,8,41,1,208,247,160
85 DATA0,177,251,197,215,208,6,32,L111,H0,76,L6,H0,32,L111,H0
90 DATA76,L81,H0,201,133,144,6,201,141,176,2,56,96,24,96,166
95 DATA251,208,2,198,252,198,251,96,0,0
100 F=0:FORD=STOS+I:READA$:IFASC(A$)<58THENA=VAL(A$):GOTO115
105 IFASC(A$)=76THENA=VAL(RIGHT$(A$,LEN(A$)-1))+PEEK(55):IFA>255THENA=A-256:F=1
110 IFASC(A$)=72THENA=VAL(RIGHT$(A$,LEN(A$)-1))+PEEK(56)+F:F=0
115 POKED,A:NEXT:RETURN